home *** CD-ROM | disk | FTP | other *** search
- property mySprite, myLoc, myType, displaySprite
-
- on beginSprite me
- mySprite = me.spriteNum
- myLoc = the loc of sprite mySprite
- myType = #intInsetOverlay
- hide(me)
- end
-
- on hide me
- set the loc of sprite mySprite to point(-10000, -10000)
- end
-
- on show me
- set the loc of sprite mySprite to myLoc
- end
-
- on sendSpriteNum me, whichType
- if whichType = me.myType then
- return mySprite
- end if
- end
-
- on KillInteriorInset me
- hide(me)
- end
-
- on interiorOptionPurchased me
- show(me)
- end
-
- on enterFrame me
- global gConMan
- if not (label(0) = label("int_intAm")) then
- exit
- end if
- if not sendSprite(mySprite - 1, #insetShowing) then
- hide(me)
- else
- if voidp(displaySprite) then
- displaySprite = sendAllSprites(#sendSpriteNum, #IntDisplay)
- end if
- curInteriorDecision = getNextInteriorDecision(gConMan)
- curChoice = sendSprite(displaySprite, #getCurChoice)
- if curInteriorDecision = #interiorAmenities then
- if interiorItemPurchased(gConMan, curChoice) then
- show(me)
- else
- hide(me)
- end if
- end if
- end if
- end
-